#第二次课####
#1、：建立1个中文对象，1个英文对象，1个隐藏对象，并将代码运行截图到下面####
R语言="Class"
English="hard"
.a=6
#2、一维数据练习####
A<-c(1:10)
a1<-c('g1','g3','g2','g1','g3','g1','g3','g1','g1','g3')
B<-factor(a1,levels = c('g1','g2','g3'))
r1<-tapply(A, B, mean)
print(r1)
#3、建立包含10个数的数值向量2个，并和第1题中建立的向量和因子一起合并成1个数据框####
A2<-c(4:13)
A3<-c(8:17)
dat<-data.frame(A,A2,A3,a1)
#4.1使用for/while语句计算num大于10的个数####
num=sample(1:50,10,replace = TRUE)
n=0
for (i in num) 
  {if(i>10)
    n=n+1
}
print(num)
print(n)
#4.2使用条件语句对num进行从大到小的排序。(简单选择排序)####
num=sample(1:50,10,replace = TRUE)
print("未排序时：")
print(num)                   #输出未排序的数列
i<-1
while(i<10)                  #进行简单选择排序
{
  j=i+1
  max<-i
  while(j<=10)
  {
    if(num[j]>=num[max])
     { max=j}
    j=j+1
  }
  if(max!=i)                #若i值与max值不相等，则将两者交换
  {
    temp<-num[i];num[i]<-num[max];num[max]<-temp
  }
  i=i+1
}
print(num)







